home *** CD-ROM | disk | FTP | other *** search
/ Mac Expert 2 / Mac_Expert_2.iso / Applications / T-Script v3.0 / LaserJet / LaserJet.rsrc / POST_259 < prev    next >
Encoding:
Text File  |  1991-12-13  |  1.4 KB  |  45 lines

  1. %!PS-TTS-1.0
  2. % Hewlett-Packard LaserJet setup
  3.  
  4. statusdict /devicedict get begin
  5.  
  6. /LaserJet {
  7.   false true true false setframetype
  8.   300 300 settilesize
  9.   deviceresolutionx dup 300 lt {4 idiv} {5 idiv} ifelse 45 /circlespot load setscreen
  10.   {} settransfer
  11.  
  12.   userdict /letter {statusdict begin 2 setdevicepaper 576 768 setdevicepage end} put
  13.   userdict /legal {statusdict begin 3 setdevicepaper 576 984 setdevicepage end} put
  14.   userdict /a4 {statusdict begin 26 setdevicepaper 561 817 setdevicepage end} put
  15.   userdict /lettersmall {statusdict begin 2 setdevicepaper 554 732 setdevicepage end} put
  16.   userdict /a4small {statusdict begin 26 setdevicepaper 538 780 setdevicepage end} put
  17.  
  18.   /showproc {
  19.     statusdict begin
  20.     /jobstate (printing to LaserJet) def
  21.     devicefile
  22.     dup <1B45 1B266C> writestring
  23.     dup #copies 10 idiv 10 mod 48 add write
  24.     dup #copies 10 mod 48 add write
  25.     dup <58> writestring
  26.     flushfile
  27.     manualfeed {1} {0} ifelse setdevicemanualfeed
  28.     devicefile opendevicepage renderproc devicefile closedevicepage
  29.     devicefile dup <0C> writestring flushfile
  30.     /jobstate (busy) def
  31.     end
  32.   } def
  33.  
  34.   /setdevicepage {
  35.     devicescaley mul cvi /imageheight exch def
  36.     devicescalex mul cvi /imagewidth exch def
  37.     [devicescalex 0 0 devicescaley neg
  38.      imagewidth devicepaperwidth sub 2 div
  39.      imageheight devicepaperheight add 2 div] installdevice
  40.   } def
  41. } bind def
  42.  
  43. end
  44.  
  45.